home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / qb2 / pro11 / easydemo.bas < prev    next >
Encoding:
BASIC Source File  |  1991-10-29  |  2.1 KB  |  69 lines
  1. DEFINT A-Z
  2.  
  3. ' $INCLUDE: 'C:\QBasic\EasyDoor.BI'
  4. ' $INCLUDE: 'C:\QBasic\AutoBBS.BI'
  5. ' $INCLUDE: 'C:\QBasic\EasyANSI.BI'
  6. ' $INCLUDE: 'C:\QBasic\EasyPara.BI'
  7.  
  8.  
  9. LOCATE , , 1 ' Turn on cursor
  10.  
  11. Init Para$(), NPara()
  12. Send Bright$
  13.  
  14. IF AnsiFlag$ <> "1" THEN
  15.         SendCLS
  16.         SendCR "Sorry, but you need ANSI to view this demo."
  17.         SendCR ""
  18.         Pause 18 ' Pause 1 sec.
  19.         ReturnBBS
  20. END IF
  21.  
  22. WHILE K$ <> "Q"
  23.         SendCLS
  24.         SendMenu "DemoMenu", "ITGQ", K$, 0
  25.         SELECT CASE K$
  26.                 CASE IS = "T"
  27.                    SendTXT "DemoText.TXT", 1
  28.                    SendCR ""
  29.                    Send Bright$ + Yellow$ + "Press [Enter] to continue"
  30.                    WHILE ModemInputChar$ <> CHR$(13): WEND
  31.                 CASE IS = "G"
  32.                    SendFile "DemoAnsi.ANS", 0
  33.                    SendCR ""
  34.                    Send Bright$ + Yellow$ + "Press [Enter] to continue"
  35.                    WHILE ModemInputChar$ <> CHR$(13): WEND
  36.                 CASE IS = "I"
  37.                    SendCLS
  38.                    SendCR Bright$ + Green$ + "The following is an example of Easy-Door ModemInput command."
  39.                    SendCR ""
  40.                    SendCR "Try the Escape key when you have typed something."
  41.                    SendCR ""
  42.                    ModemInput Yellow$ + "Enter a name: ", White$ + BlueBack$, AName$, 28
  43.                    IF AName$ = "" THEN AName$ = "Unknown Person"
  44.                    SendCR ""
  45.                    SendCR Green$ + "It's good to hear about " + Cap$(AName$) + "."
  46.                    SendCR ""
  47.                    Send Cyan$ + "Press [Enter] to continue."
  48.                    WHILE ModemInputChar$ <> CHR$(13): WEND
  49.                    SendCLS
  50.         END SELECT
  51. WEND
  52.  
  53. Send AnsiReset$
  54.  
  55. FOR t = 1 TO 12
  56.         AnsiLocate t, 1: Send EraseLine$
  57.         AnsiLocate 24 - t, 1: Send EraseLine$
  58.         Pause 1
  59. NEXT
  60.  
  61. AnsiLocate 12, 1
  62. SendCR Blink$ + Bright$ + Green$ + Center$("Goodbye " + FullName$) + AnsiReset$ + Bright$ + Cyan$
  63. AnsiBOX 11, 29, 12, 51, 4
  64.  
  65. ReturnBBS
  66.  
  67. ' $INCLUDE: 'C:\QBasic\DoorDef.BI'
  68.  
  69.